Chip 1998 September/CHIP NET Rehberi Eylül 1998.iso/ftp/ADFiles/_setup.1/ADFiles.exe/0/RCDATA/TURLMAKE/TURLMAKE.txt

Text File | 1998-04-27 | 8KB | 362 lines

object UrlMake: TUrlMake
  Left = 255
  Top = 139
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  ClientHeight = 385
  ClientWidth = 363
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnHide = FormHide
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PanelAddUrl: TPanel
    Left = 0
    Top = 0
    Width = 363
    Height = 385
    Align = alClient
    BevelInner = bvLowered
    BorderWidth = 3
    BorderStyle = bsSingle
    TabOrder = 0
    object RxLabel7: TRxLabel
      Left = 5
      Top = 102
      Width = 62
      Height = 14
      Caption = 'Edit full Url  :'
    end
    object Panel1: TPanel
      Left = 7
      Top = 210
      Width = 345
      Height = 164
      BevelInner = bvLowered
      BorderWidth = 1
      TabOrder = 0
      object RxLabel1: TRxLabel
        Left = 3
        Top = 4
        Width = 96
        Height = 14
        Caption = 'Official host name  :'
      end
      object RxLabel2: TRxLabel
        Left = 3
        Top = 44
        Width = 98
        Height = 14
        Caption = 'IP Address of host  :'
      end
      object RxLabel5: TRxLabel
        Left = 257
        Top = 4
        Width = 31
        Height = 14
        Caption = 'Port  :'
      end
      object RxLabel3: TRxLabel
        Left = 117
        Top = 4
        Width = 63
        Height = 14
        Caption = 'User name  :'
      end
      object RxLabel4: TRxLabel
        Left = 192
        Top = 4
        Width = 58
        Height = 14
        Caption = 'Password  :'
      end
      object RxLabel6: TRxLabel
        Left = 117
        Top = 44
        Width = 114
        Height = 14
        Caption = 'Initial remote directory  :'
      end
      object lbAbout: TRxLabel
        Left = 5
        Top = 84
        Width = 82
        Height = 14
        Caption = 'About this host  :'
      end
      object Panel2: TPanel
        Left = 4
        Top = 18
        Width = 112
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 0
        object edHost: TEdit
          Left = 0
          Top = 0
          Width = 108
          Height = 21
          TabOrder = 0
          OnDragDrop = edHostDragDrop
          OnDragOver = edHostDragOver
          OnKeyPress = edHostKeyPress
        end
      end
      object Panel3: TPanel
        Left = 4
        Top = 58
        Width = 112
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 1
        object edIP: TEdit
          Left = 0
          Top = 0
          Width = 108
          Height = 21
          TabOrder = 0
          OnDragDrop = edHostDragDrop
          OnDragOver = edHostDragOver
          OnKeyPress = edHostKeyPress
        end
      end
      object Panel4: TPanel
        Left = 286
        Top = 18
        Width = 54
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 2
        object edPort: TCurrencyEdit
          Left = 0
          Top = 0
          Width = 50
          Height = 21
          Alignment = taLeftJustify
          AutoSize = False
          BeepOnError = False
          DecimalPlaces = 0
          DisplayFormat = '#'
          MaxValue = 9999.000000000000000000
          TabOrder = 0
          Value = 21.000000000000000000
          OnDragDrop = edPortDragDrop
          OnDragOver = edHostDragOver
        end
      end
      object Panel5: TPanel
        Left = 210
        Top = 18
        Width = 74
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 3
        object edPass: TEdit
          Left = 0
          Top = 0
          Width = 70
          Height = 21
          TabOrder = 0
          Text = 'user@'
          OnDragDrop = edHostDragDrop
          OnDragOver = edHostDragOver
        end
      end
      object Panel6: TPanel
        Left = 118
        Top = 18
        Width = 90
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 4
        object edLogin: TEdit
          Left = 0
          Top = 0
          Width = 86
          Height = 21
          TabOrder = 0
          Text = 'anonymous'
          OnDragDrop = edHostDragDrop
          OnDragOver = edHostDragOver
        end
      end
      object Panel7: TPanel
        Left = 118
        Top = 58
        Width = 222
        Height = 25
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 5
        object edIniDir: TEdit
          Left = 0
          Top = 0
          Width = 218
          Height = 21
          TabOrder = 0
          OnDragDrop = edHostDragDrop
          OnDragOver = edHostDragOver
          OnKeyPress = edHostKeyPress
        end
      end
      object PanelAbout: TPanel
        Left = 4
        Top = 98
        Width = 336
        Height = 61
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 6
        object edAbout: TRichEdit
          Left = 0
          Top = 0
          Width = 332
          Height = 57
          Align = alClient
          Enabled = False
          TabOrder = 0
        end
      end
    end
    object PanelFulUrl: TPanel
      Left = 7
      Top = 43
      Width = 345
      Height = 166
      BevelInner = bvLowered
      BorderWidth = 1
      TabOrder = 1
      object PanelFullUrl: TPanel
        Left = 4
        Top = 4
        Width = 336
        Height = 128
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 0
        object ListFullUrl: TListView
          Left = 0
          Top = 0
          Width = 332
          Height = 124
          Align = alClient
          ColumnClick = False
          OnClick = TipsFtpClick
          OnDblClick = ListFullUrlDblClick
          Columns = <
            item
              Caption = 'Full Url'
              Width = 328
            end>
          OnEditing = TipsFtpEditing
          OnMouseMove = TipsFtpMouseMove
          PopupMenu = PopupMenu1
          TabOrder = 0
          ViewStyle = vsReport
          SmallImages = SmallImages
        end
      end
      object PaneledFullUrl: TPanel
        Left = 4
        Top = 134
        Width = 336
        Height = 27
        BevelOuter = bvNone
        BorderStyle = bsSingle
        TabOrder = 1
        object edFullUrl: TEdit
          Left = 0
          Top = 0
          Width = 332
          Height = 23
          AutoSelect = False
          AutoSize = False
          TabOrder = 0
          OnDblClick = edFullUrlDblClick
          OnEndDrag = edFullUrlEndDrag
          OnMouseDown = edFullUrlMouseDown
          OnMouseMove = edFullUrlMouseMove
          OnMouseUp = edFullUrlMouseUp
        end
      end
    end
    object PanelButtons: TPanel
      Left = 7
      Top = 7
      Width = 345
      Height = 36
      BevelInner = bvLowered
      TabOrder = 2
      object btAdd: TRxSpeedButton
        Left = 3
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Add typed Url to Explorer'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btUrlAddClick
      end
      object btExit: TRxSpeedButton
        Left = 65
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Exit from Url maker'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btExitClick
      end
      object btDele: TRxSpeedButton
        Left = 34
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Delete this Url'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btDeleClick
      end
      object btConnect: TRxSpeedButton
        Left = 96
        Top = 3
        Width = 30
        Height = 30
        Hint = 'Connect to this Url'
        Flat = True
        GrayedInactive = False
        ParentShowHint = False
        OnClick = btConnectClick
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 307
    Top = 100
    object Clear1: TMenuItem
      Caption = '&Delete'
      OnClick = Clear1Click
    end
  end
  object SmallImages: TImageList
    Left = 307
    Top = 70
  end
end